home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesutrc4.s < prev    next >
Text File  |  1989-08-26  |  2KB  |  66 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8. ;*************************************************************************
  9. ;*
  10. ;* AESUTRC1.S - Rectangle utilities 4 of 4.
  11. ;*  Utility routines involving non-standard rectangle calcs...
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; rc_vtog - Convert VRECT to GRECT.
  17. ;-------------------------------------------------------------------------
  18.  
  19. _rc_vtog::
  20.  
  21.           .cargs    #4,.pvrect.l,.pgrect.l
  22.           
  23.           move.l    .pvrect(sp),a0
  24.           move.l    .pgrect(sp),a1
  25.  
  26.           move.l    (a0),(a1)
  27.           
  28.           move.w    4(a0),d0
  29.           sub.w     (a0),d0
  30.           move.w    d0,4(a1)
  31.           
  32.           move.w    6(a0),d0
  33.           sub.w     2(a0),d0
  34.           move.w    d0,6(a1)
  35.           
  36.           rts
  37.  
  38. ;-------------------------------------------------------------------------
  39. ; rc_gtov - Convert GRECT to VRECT.
  40. ;-------------------------------------------------------------------------
  41.  
  42. _rc_gtov::
  43.  
  44.           .cargs    #4,.pgrect.l,.pvrect.l
  45.           
  46.           move.l    .pgrect(sp),a0
  47.           move.l    .pvrect(sp),a1
  48.           
  49.           move.w    (a0),d0
  50.           move.w    d0,(a1)
  51.  
  52.           add.w     4(a0),d0
  53.           move.w    d0,4(a1)
  54.  
  55.           move.w    2(a0),d0
  56.           move.w    d0,2(a1)
  57.  
  58.           add.w     6(a0),d0
  59.           move.w    d0,6(a1)
  60.           
  61.           rts
  62.           
  63. ;         end of code
  64.  
  65.  
  66.